home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO4.ARC / BALLOON.LSP < prev    next >
Encoding:
Text File  |  1987-05-18  |  816 b   |  25 lines
  1. ; FOR AUTOCAD VERSION 2.18
  2. ;Baloon Lisp by Charles Niesley
  3. (defun c:BALOON()
  4. (setvar "cmdecho" 0)
  5. (if (null sc1)(setq sc1 (getvar "ltscale")))
  6. (setq pt1 (getpoint "\nEnter arrow end of leader: "))
  7. (command "dist" pt1)(getpoint "\nEnter balloon end of leader: ")
  8. (command)
  9. (setq pt2 (getvar "lastpoint"))
  10. (setq angrad (angle pt1 pt2))
  11. (setq angdeg (* angrad 57.29578))
  12. (setq awscl (* sc1 0.19))
  13. (setq pt3 (polar pt1 angrad awscl))
  14. (command "line" pt 3 pt2)
  15. (command)
  16. (command "insert" "arwhd" pt1 awscl awscl angdeg)
  17. (setq bllnrad (*sc1 0.25))
  18. (setq cpt (polar pt2 angrad bllnrad))
  19. (command "circle" cpt bllnrad)
  20. (setq txtht (*sc1 0.19))
  21. (setq txtloc (list (car cpt)(- (cadr cpt)(/txtht 2.00))))
  22. (setq blntxt (getstring "\nEnter balloon text: "))
  23. (command "text" "c" txtloc txtht 0 blntxt)
  24. )
  25.